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[0027] (22) RPG Program Specification (Overall diagram. 
Processing outline) 

As shown in Fig. 24, on this report, an overall 
diagram and a processing outline of the program are printed. 

10 The overall diagram of the program is created based on an 
execution result of the DSPPGMREF (program reference 
indication) command. An ^'external program name" in a list 
of external programs is generated based on the execution 
result of the DSPPGMREF (program reference indication) 

15 command when information resulting from the DSPOBJD (object 
description indication) command is obtained. 
[0028] (23) RPG Program Specification (Module Structure 
Diagram) 

As shown in Fig. 25, the RPG program specification is 
20 a report indicating the relationship of calls to internal 
subroutines and external subroutines of the RPG program in 
tree form. The RPG program is designed as shown in Fig. 33, 
and instruction codes of EXSR, CASxx, CALL, BEGSR, and 
ENDSR mean EXSR (internal subroutine call), CASxx 
25 (subroutine conditional call), CALL (external program call), 
BEGSR (beginning of subroutine), and ENDSR (end of 
subroutine), respectively. The RPG source program is 
checked sequentially from the beginning thereof, and every 
time the instruction command is detected, a nesting table 
30 as shown in Fig. 34 is completed. By arranging call 

relations of internal and external subroutines using the 
completed nesting table, the module structure diagram as 



1 



shown in Fig. 25 can be created. Note that subroutine 
names or program names are generally described in a 
predetermined position of the RPG program, and these names 
are extracted and printed on the right side of a rectangle 
5 box. According to this module structure diagram, a 

processing flow of the RPG program can be advantageously 
confirmed at a glance. 

10 [Fig* 24] A part of the RPG program specification (overall 
diagram, processing outline) . 

[Fig. 25] A part of the RPG program specification {module 
structure diagram) * 
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[IS*® 2 ] mmvim^c s»Cv ±r <d r p g 

4H«Bla^L/-cRPC:/ni^5A-Ma. Rtf, RPG 
i*t;ttLB8fS**y y-tfcKH^Lft r p g yn^f^Att 

3 ] AS/400 ia«T1?ili¥ SEff ©3 
[000 1] 

[0002] 

[t«*©««&tfaw*'«?»Lj;^i:-rssiii] aye 

nTt/>S©*WSiJ-e^5« l/*^Lft*<6. F+a/yh 

iE«K»fflt-i5t©©> •=g-©I^S*iEStJcf2iELftF4^ 
a y y HS3b<tl«tS4aTV>i6:l<>C fc*^^v>©A'Sl1Sl?fe 

So sfc. -j6©F+a?«>Ma*^iittnri^fci:tT 
fe. «ff^©3i«ic-&t)«;fc*©«©s^X7'AaE©e 

F+ap<yh©t5iErtSkVX-?i.rtSkA^T-a 
i:*«i:k*<^v^©fell'R}Tfe«o aytJa-^f • yx 
f-i.*J;!)'&9«ftt©lc««-r«fc»i)t«*> *©Wffl 

tl63KW:» IS?fi^XrAi£»«fUT»e>S*F+a 

^yF5a«eP9faj^'r«(gB*^#auft*»oft©t?, 

X-rAKtUcJfetf LT, Stf •>X'rA©^^«f©fci6»c^ 



(2) 1$ra¥8-2 86 8 98 

©•e^oTs 3SH7J'XrA»COI,^T©»iffl*F+a>«y 
F%BP?ttl^-r « c *:©•?*« «yxr A^J«fSSBS:tl« 

[0003] 

c©«Wk:««yXrA^^«f^®«, ilff-yXrA 
©sl-7J^xi'F3-F&tfy-X3-F«:5^«TUT, ^ 
©»«l«ili«»«TJB«KBIIbTfP^'til^1-*«B'eft 

^^7i*lCOV>T©y--X3- F©X7''y TW^^T'ii'x 

tfs SC Lyni^7A©«93i*7D-^i'-httfCl21* 

Bttx I BMtt©A S/4 0 offl«iT-eist?S'r 

SCt*^T*, C©Ji^tttt, ;i-7'5^xi'F3-F«:« 
«T-rS0»c&a©K^3Ty F«rJSfflTtT!ifiaT-fe 

«. 

20 [0 0 0 4] 

jBtcsewra. ai«, *«wic«si/X'rA»«Ti6B 

«0S^vLrct.©T&O> (PiftKia^BU ±fB1i^B 
2, C RT7*-rX:/U-l'3» *-F4s •r-fXi'fS 

nasiBs. en]8ij«B6«HT«««nTv>s. c©»*f 

gB«, I BMtt©AS/4 0 0->XTi>«fflV^Te!fi!c 
«nTfe!)> »*T*t*©->XxAtAS/4 0 0a«T 

its iKf7S'Xri*B2~03 2©iJffSiHF*aP<> 

F^' a ^ y F ©rtSlCOI/>T8iR^-r 5. 
[0 00 5] •>XrA©J^«T«iRF*aP«yFttx (1) 
V7 h ■^xT^fiUSPSi-KS, (2) ;^r.a-SW0. 

(3) cira^'^L-mm-, (4)joB«}jt0, (s) c 
L-^tiif9ixmm-^oif'7L.Bsmm. (6) ^aa^ri' 

;l/-KSv (7) 1637 7-1' /V-^, (8) T'-^f'S-X 
Kits, (9) «!)3i/iaa7r'i';VMMa. (io)%a-fil 
a77'</V/RPG7^n^^5i^Maa» (11)Hffi77"l' 
(i2)iSS^/TNm*. (I3)liffi77''r;i^7'r- 
^0 ;PFJS14-5ia. {i4)iiffi7r'i';V/7'Dy9A6aa 
(1S)««7r-r;V-m (16)*SS9JBiM*. (17) 
46^77-1' ^1/7 -f-;UF/ait-K^. (18)tgS7 7-l';W 
/:rn^y7i.Baags (19)<lfiaB]»JS* (Ott«8B) ^ 
(20)4gS77'l'/P/7Dy7ABa3ia (Oft«tS) > (2 
1) R P G -/D 4^9 i.-KS> (22) R P G 7*0 ^i'? 
e (^m SSmtS) . (23)RPG7ai^5'Att«® 
; (24)RPC7Dif7Att«if 
(7-<-;WFfflft) , (25)7D^^5A/7r-1'/l'B8iia 
(!Kia«tea) , (26)7Di^7A/77'l';l/B9iiS (il 
JO , (27)7 7'l'/l/H»iT-7;K (28);»«yb- 
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[0 0 0 6] (1) V7h»x7«l«88ffi-'KiS (7-^:/ 
■9U-Bij»-7'J-) 

«jcj:tuf, *7i?x^'^•^«•^'■/«<Da^■t)■^•Xs &xf 
[0 0 0 73 (2) jt-a.-msm 

9AIB©Wail/M«tts I BMttWD S P PGMR E 

i:*'T-S«OT?x tHJ^ltf, DSPPGMREF *LIB/*ALL OUTPUT 
(*OUTFILE) OUTFiLE(&n.tB/DCMP<IFP) ^miS'^X. tii 
fj77-<>\^8iVll 1 B/DCWPRFPCDrtS^iffl^-r 

[0 0 0 8] (3) CLt/Py7i*-Kg 

L :/oy7j:*KO(,>Ty-:^3- Foxf •y::''sa'S>*7 
S?x^'b1)--l'X4ir*9]!?tftfcOTa&»)s rcLy'a 
s rc i-:fnif^L. I Dj , ry-X3- 

^i?.^ C lyoif^A I D. Rtf;i-:^S^xi' MS® 

ic-oit^xii. I BMttoo s/4 0 o©3vy K-ca&s 

D S P 0 B J D (* >rs^x f h82Jfi^) K**"] 

DSPOBJD &LiB/-i«LL *PGK 0UTPUT(*0UTFtLE)40UTFtLE(&L 

IB/OCBPGMP) 

-■n. y-X3-Kisig(4, atSciyoir^Aoy- 

7%i?a5«. ftfe, y-xa-Ko{Mati> SKy- 

ff^B. *75'x^'i-©a«ffiffla, ^rs'xi'boff 
7, ^r-yxj'hi&sa'rsitJ^JS-pfe'S. 
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[0 0 0 9] (4) J 0 Bmrnm cc l >^py?A«i§ 

[0 0 10] (5) CL7'py7Al^i^m-/Pj^9i>li8g 

(CL. RPG. COBOL) iSrSJBS-eep^urctsa 

DJ , rnf ttjypy^A I DJ s r:/Qif'7ix5f'(' 
:/j , RCf rrpi'"9A«»;j ©«*^&a%. cct?. 

7'Pi^-7A©B8Stt«. OS/4 0 0©3^>'K-Pfc« 
DSPPGMREF (7'P!y9A#KS5^) 3VVK% 

:;^h««a^5fcJ&©t©t?«!?s filffl(f>J«^ti:^© 

DSPPGMREF 8LIB/«ALL OUTPUT(*OUTFILE)40UTFILE(&LIB/ 
OCHPRFP) 

-■n. CLT'pi^^Ao^jftsftifKoi/^ra. dspo 
B J D (^^s^xi' hffiiES^) 3vy H«ll^TUT^# 

«i:i:!b^'^tS©'^> DSPPGMREF {.•^uif'7L. 
L yPi^7Art«f Ui::'Pi^9AiaaS«:flFfi!t-r5 C tn^ 

30 -pts. lasocLT'p-j'vArtBfaiT'pi^^ABiias 

K^-rA^tC. mff rA-y^'7y:^P<-a- (HRM 
ST0 07) J «> CLypy^A-pfe* Ft*-*©/^ 
-ji^r-yV (HR90J301)Ji: Tf— y©*!]W^t 
(HR90J30 1) J t«:ffifflUTV>*CtA^-iT- 

[0 0 11] (6) l»ia7y-i';V-Sg^ 

7ri'/wcoi/''Ty-X3- Y<r>%'r'Vf^'^icfVx 
h-9-i'x*£%6P?u/£fe©-pfe»), mmyr^jX' 
40 «iB;j . ri|!!ja77-i';i/i DJ . ry-X3-Hffl 
«j s St; r:i-7i^xi'ns«j omnEis^^m^iti 

iftts %a7r-<;HD. &lf;i-7i^xi'Mffflfi:ou->T 
tt, OS/400©3VyKT?fe.5DS P FD (77-^ 

4/e3$a?o 3vvK**jfflfn<«9sci:tf-e€. -ffi 
ffl«!i*^-rt^*j©®?)Tfe«. 

OSPFD &LIB/*ALL *ATR OUTPUT (*OUTF I LE) FILEATR(*PF) 
40UTFILE(&»LIB/DaUTR1) 

-7?, v-^3-vmmii.s iKtiS77'<";i'©y-x 

JO 3-K*«i*rUTi#ftt©TfeO. -J-Ts-fnf'yL.n 
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[0 0 12] (7) iail77-<;V-%a 

Idi. Kia7r-i';HD, S:tf:t7i^xi'MSiK{cov'r 
a, OS/4 00©3'7yF"C**DSPFD C77'< 
;H32Ea^) 3^yH«|iJffl-rn«tfSCi:*<T«, ffl 

OSPFD &LI8/*ALL «ATR OUTPUT (*OUTFiLE) FILEATR(«LF) 
■H)UTFILE(&WLIB/DCIATIi2) 

-fi. y-xn-KisfStt. sisiaa7 7'<'/i'oy-x 20 

[0 0 13] (8) y-^^-XKttS (UJ-HU-fT 

s r!^a7 7'T;n Dj , rua-Kfij . 
r+-gj , r7-<— ;vF««5sj . tr/kj > r7-f 
H I D J . r#{fg7 -f -;v H j » r0jfa7 7 •Y ;n 
Dj , rmi s r'>Sffi!Bu s roATATYP 

EJ <0«a4^*>6m«nTl>So ^-UT, «!)a7r'< 
^KOJf^Ktt. ^'<-5^W»KSia77"l'/l/ffli[«?'lt 
j'1.1S«Ji8:if*0l^-rS*'5tC%oTO^5 (010). C 

n'f-ti^-xmm^^is.t^ tctt. 0 s / 4 0 0 © 

a'rvK©?^, DSPFD {77'i';l'eS8aa^) 3"^ 
y K. D s p D B R (f-^f^-xiaas^) ^0 

H, St/D S P F F D i.77'<lV • y^-)VV^S. 
m) n-TVHSI'Jffl-r*. «)a7ri'4'««i». tpjjt 
(f. DSPFD 8LIB/«ALL *ATR OUTPUT (*OUTF I LE) FILEATR 
(«PF)+0UTFILE(SWLIB/DCWATR1) ©Slif)eS*^&»l« C 
t««-p«, gaa77'f;V«iftitt. Myitis DSPFD 

&LIB/*ALL «ATR OUTPUT (*OUTF I LE) FILEATR(*LF)+OUTFI 
LE(fiWLIB/0CWATR2) ©SH7!IS«A^6ffl«Ci:!b^Tt%. 
-?7, {PJjltf, OSPFD SLIBMll •RCDFIIT OUTPUT(*OUTF 
ILE) FILEATR(«PF *LF)+0UTFILE(&WLIB/DC«RCDP)«:llt7 
1*5 77-1';V©W'3-Ktt5S«fe*tfU3-K«S: 50 
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Its© rua-HSj ©«8, Silf0^©lf<J»cfet^S TR 

HRRKDHRJ ©ff^f^dttSC * 
tc. m^iS. DSPFD &LIBAALL «ACCPTH OUTPUT (*OUTF I L 
E) FILEATR(*PF *LF)+0UTFILE(MILIB/DC«ACCP)*llf7-r 

}iSbft7r'r;w©7i'-bX'-'<xftir«aisc 

TR/KJ ©«8«:^fi)cSHi:SJ:t*<-pta. Mt, «IJ* 
(f. DSPFD 8LIBMLL •SELECT OUTPUT (•OUTF ILE) FILEA 
TR(*LF)+OUTFILE(miB/DCWSLCP) StUIt-T S i:, 8^97 

7 -r /i/fc *;itss»?/Rfensit%aJ5 c t t s © 
■p, aia77'f';i'© ra$?/K{ii.Sfettj ©«i«:^fiKS-e- 
«ct*<i?«*. sftv »a77-i'^i'ttta77i'jw© 

MMISfCOl^Tti, DSPDBR (■7»-5»'<-X|3ajlS 

tfH^tfDSPDBR SLIB/«ALL OUTPUT («OUTF ILE) OUTFIL 
E(WIILIB/DCWDBRP)«||ff«-e:5. I^ft. D S P F F D 

(7 71*/!' • 7 ^ -/V KieiiS^O mmtti 
a. r7-f-;i/K*«ij > r7'f-;VFiDjs r#fia 
7-f-;i'Fj . rMa77'<';n Dj s riRaj . r'> 

Stffiaj , rOATATYPEj ©ffl«^«'tt«Ct 

[0 0 14] (9) mm/t^myT-ommm 

yr^A'O-^-Qh^. 01 iK^f^^ts rtrn 
77-i';i//+-7-r-;i/Fi&j , mmyr^iVi 
Dj . r8aa77-i';n Dj , r^g-T^iij , tr/k 
/o/sj ^ r+-7-r-;PF i dj , r+-«u , 

n8B?/l»i1.ifeftj 0«8*ff**Lrv^«. D S P D B 

R if-^^-xfimwfO ^TVF^fjffl-rniJ. * 

S7 7 1" ;U t »a 7 7 /l/CMSttftSlS c i: *'T' t « 
©Ts «•)©«««, DSPFD (77.Y;l'83>«aa^) 
3WH'S>DSPFFD (77'I'/V' 7-<'-/l'FI2i*S 
/TO F*SlffS-*T«ii>4. ^197 
7'r;W«as OSPFD TYPE(*ATR)©lltTlCj:»JjED5Cf:«< 

TR/K/O/SJ ©ffl©1i?B-^*-7-f-/l'F 
I Dtt. DSPFD TYPE(«RCOFI»T) ©Htf CJ: DWSC i:*' 

+-|l|l©1fia«> DSPFD TYPE(«ACCPTH) ©Hffli: 

*t)jso*ct!b'-e«s. tfc, ^-y-<-jvv^ii. d 

S P F F D (77-1' ;!/ • 7^-;V FI25ES*) a'T^ F 
*ffll<->T, fflJ^UfDSPFFO 4LIBMLL OUTPUT(*OUTFILE) 
OUTF I LE(HIL I B/DOIFFOP) © jlfT«-ST*46 % C i: tfT t 
«o 4*5. DSPFD TYPE(*SELECT) © 

mTlcj;0«i6Sc;i:*fi?$«. ^<om>). OS/4 

0 o©3v>' F*iijffl-rn««9a/»si77-TyH8aa 

S7 7 -1'/W-^»317 7-<;U©«E^k:»e©T-S 7 7 'f 
;P**#«T?t*©-e*4tT««. 
[0 0 15] (IQjiag ' ttg77^;Vy^R P 0^0^^ 
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%a • !iiI7 r I" ;V/ R P G -Ifo f- 

ri/o/uj. r7'oi)^7i.i Dj , r7'Pi!'9A« 
«tj <o«*«l/Tv>*o 7r'<;^«»^i^ dspfd 

(7r-l';l/SB3S) 3Ty K»CJ;«DSPF0 TYPE(*ATR)Oll 
i7fcj:t)asci:*^1?#v 7oi^7A«f5!«, DSPO 
BJD (:t7v'xi'H23S^0 avyFt<J:oT»IS 
ci:*<i»t«. $ft, 7r-i'/Vi:7'ni'5A<^MS-^I 
/0/U(DEgiJ«. DSPPGMREF (7oi/5A0 

a • »a7r-i'/v/R p G:/a^r9z^i!iia«*^tf, 

[0 0 16] (n)Mii577'f 

liS7r /Iz-SIStt. ±T<D®M7 7 -1';^t-^v^Ty 

*Lftl>o-e»?), HI 3H:5^-r>i»), rHffi7r-i'/i/ 
, rBffi77i';n Dj , rv-xn-Flf 

Tt-"*, liffi77'(';l'-KiE05-S, HH77-^'4'« 
i»s i®ffl7rf;n D, Rtf:t7i^xi'htSf8k:ov>T 

tt, OS/4 00<D3-^>'H-P*5DSPFD (77-1' 

;H2jSBa/T^) 3TyF%ipJffl-rtitfi#Sci:*'T?t, ffi 

DSPFD &LIB/*AU. *ATR OUTPUT (*OUTF I LE) FILEATR(i<DSP 
F) 

iOUTFILE(«n.iB/DC»ATP3) 

a*^ & 3 j{ y h nmm^ mw^^itm'^nfiXT' -y f 

tOf^fiZa, jr7S'xi'K0MHEfflB> ^-rs^x^ho 
flF/«B> ;i-75?x^F©a(ifr«H0*aSCi:3yT*S 

[00 1 73 (i2)HaS/^m^ 

Bll 4»ca%'rj:5K:, mm.7mMU T'ny^AH?? 
;H0y-X3-K*iJ«TUTflF^«nfct»<0T'*«, ^ 

[0 0 18) (13)iaS77^;V7^-;V KStt-KS 
Bi SKa^fi^ts fflBi7r-<'/V7'f-;VK«1i-K 

Stt, ii®77-i';i'rt-pffiffltTv>2.7-r-;VKOlSffl 

[0 0 19] (14)ilB7 7 -r/l//7'n ^^IsMM^ 
lai 6K*-rJ:3fc, iaB77'r;l'/7'n<?"5ixKaS 



(5) #M¥8-286 898 

(4, il®77'l';l'i:> *(D77-l';l'i&ffifflL.TI/>SyD 

77i';u««ij s rB337ri';H DJ , Xfu^^k 

I DJ > ryoy^A^f-i'^J <D«B%WUTV>S„ HS 
77'f';U«iB;tt, DSPFD (77'f;HBa) SV^F 
{CJ:%DSPFD TYPE(ii*TR) FILEATR(*OSPF) OSIffteJ:0 
jQSCtsb^Tt. ii®77'l'^t:/oif5A<0Mait 
tt, DSPPGMREF (7'ni^^i.#8gg3^) 3-r> 
FflDllffti:J:Da«ct*<T««, •fn9'^U(M\t. 
10 D S P 0 B J D (;r75'x * UBiSSS'O 3 w FCi 

Ma-*I/0/U<OEgiJ{i:. DSPPGMREF C/Q 
i^5A#85«5K) 3-7VFcO||ffU:*oTaSCfc*^t? 

iiS7 7'i';l'/7'ni/-7AMia«:Entf. iliS 
7 7 't';H»iE^tc»®<D-pS :/D ^#^9 

[0 0 2 0] (15)<6g77-l';V-Sgl6 
HI Ttc^x-rJjaK:, 4BS77f;i/-K««, ^TOtS 
«7 7-f /WICOt''TV-X3- Y<ri%.'i"V'fW^-^f^J> 

;u«e:j s r«^77i';HDj. ry-X3-Fffi 
«J V Rtf rtn^xif Hf«U OWftffA^SWjSttfn 

TV^S. ii6«77>l'^l'-||g©5'&> 4I^77-Y;V€ 
f«i;^ 1fiS77-i';HD. Stf;t7i'xi'H8«»c-:)i>T 
tt, DSPFD (77-i';V?aM^) 3TyF*|iJffl-r 

DSPFD U.IB/*ALL *ATR OUTPUT («OUTF I LE) FILEATR(«PRT 
F) 

40UTFILE(&ILIB/DCIATRP4) 

30 -tJx y-X3-Fif«iJ4, Mim^yr-C)V<ov-x 

3-F*<l?«TLT#ftfc©-T?fe?), y-XT'n^^A© 

6 3 ?« V b ©tfS'&M L5 Ii'^ftKJb^lltfXT' -y 7' 
iit-efes. *6g7-7'f;V-3Sa«:^nif. y-X3-F 
OflsfiltB. ^rj'xi'KoaiilffifflB, ^T'S'xd'FO 
fffiKB. ^^S^xi'FOflbRSSBSStOSCfcA^T** 

CO 0 2 1 ] mmmsm*^ 
01 8K3^i-aD. *gaEn»]m*f±. ya^^i^iifTRif 

40 tc6n]8iJ*nS4Sa©'r;><-i^«ra]¥Lfet8»T?feS. c 

©®sai8<ja*tt, isa77'r/v©y-x3--H*»«T 

[0 0 2 2] (17)«6S7 7-1-/1/7 -i—^V FMtt-Kg 

HI 9ics^t5ai)> ««7r'('/V7-r-;l'Fil14-KS 

a. 4Sa77'l'/K«i-effifflUTV'57-c-;l/F(0lS?BiS: 

[0 0 2 3] (18) 7 -f ;i//7'a ^ 7 ABga^ 
JO 02 0 tca^-ra 0 . 41^7 7'i';V/7'a AMJIS 
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77f^i/«»j X r(|SS7r^';H Dj , r-^Qif^i* 

1 DJ . r';^oi^7A^"(':/j (Offil«rftLri>S. i|S^ 
7r-i';l'«mi, D S P F D (7 T-f/VS£jSD 3T> K 
KASDSPFO TYPE(*ATR) FILEATR(*PRTF) ©UtrCJ:*) 
jEoscfcA^-Pt, «gS7r-t';VtyD^y7A©88ai4 

D S P P GMR E F C/O j^^A^figa^^) 3V> 

K©l?ffu:<J;!35EP*ci:««t?t«o «ga77'f^l//ya 
[0 0 2 4] (igjUSgBlgiJ^ (Ott^S) 

[0 0 2 5] (20)#ia7r^;l//:/ny5Aliaaa (0 
ttlSg) 

02 2 K:^%-ra 0 . 1ia7 r -f ;V'/7'o ABSiia 
(Ott«W tt, 0tt«li»«ffiffl0TV>«RPG7'D^^ 

7A<D-Kai?fe?)> ri|gg77"f;i/«i»j , r*|g7 
r-f;!/ 1 DJ . Xfu^yL I Dj , r-^aif^L^Si'f 

7'j <offl«WL/rv>s, <im7r^/i'f/uif^L.(om 

aUtts DSPPGN4REF (ya^J^^A^Sgg^) 3 
S P 0 B J D (:i-7S^x ^ h&mm 3 W K©|^?T 

[0 0 2 6] (21)RPG:^Pj^5i>-^a 
RPGT'oi'^i.-Satt. ±T©RPG7'ni'7i.fc: 

ftji«:en?bfct>oi?a&o, 02 3iwT-r5S»),' trp 
G:^nii^7A«IS;j , rRPG::^oy9Ai DJ . ry 
-;^3-Kim8j . Rtf r;i-75'x»H««j omtta 

*vP>^^«nTV^So RPG7P^5i.-Ka©^^v 
RPCyD4^7i»««i. RPG7n4r5AID, Mf* 
T'Jj.'? Hj|«fCO<,>Ttt, D S P O B J D Wrs^x 
*f hKiESj^) 3V> FtfiJffl-rntfliSC i:*<T?S 

So --H. y--x3-H«aiav lERPcyo^f^A 

©y-;!^3-F«:Sf«rUT^/£t©-p$>'), y-XT'a 

xf-'y7%-e*s. ftfes y-X3-F<of*^att, a 

Ky-xyn^'7A«7T-<'/l'fca«Lfta*»6M5C 
fcA<T?*«= RPG:/Dif9A-S8««-mn«, V-X 

3-Kof^riiB. srrj^x^hfDaRffifflB, sj-ys'x 

^rhOfSfiHa. ;r75'xi'hO««fffi£H«:fllSC4:«' 
T-tS©1?, s}-7i'xi'l-«'iSi-«±-PWISTa&5o 
r0 0 2 7l (22)RPC7'oy7Aft«g ffl 
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70 

tt, DSPPGMREF (yDi!'7A#fi9«/T^) 3-7 V 
K©ll4flKmK:S-:yi<^TilF<«-r*o ttz. m-/uify 

A-siao Tmfx3^^htm:t dspobjd 

(:i-75^xi'hffiSEaiS) 3T>'Hfi:<}:oT<0'raii*?f 
StDSPPCMREP (T'nii^^A^figS^^) 3W 

/o r 0 0 2 8 ] (23) R p c y^Atttiig (^';^a-yV 

ma) 

02 5K:^v-r<k5K:. RPGT'n^f^AtttRSa:. RP 
G -fu if Wif 7";p-f^ y t <i.a5-9-7;v-^ V 

(OBftFthtBg^«'>";-4^;tcE5'NLfe4SgT'feSo RP 
G7nif7A{4, a3 3OJ:d»e«:oT«0, ^3- 
HEXSR. CASxx. CALL. BECSR, EN 

DSRti, ^n-fn. EXSR (F«3^a5•t^7;^-f•vl^sPtf 

tUL) , CAS XX (U-7;l'-f':^©5fem«ttfC^ai 
L) . CALL WaST'D^^^AOWdJU ^ BEG 

20 s R (i)-7;v-f-ym) . E N D s R (-y-^^v-^ V 

<0i^7) *««UTt''5o RPGy-X7"Dif 
•5A««IO*^&Jffl»tcf-x-yi'UTi**, ±E©*<ft3 

x-7;^^c-^l/^T, rt«|5*7/l'-9^vi:^85-9-7yW-f- 

ymxfiiibmk^&mtmmz 5icmt'ei^:i-/v 
jf-yoif^A^tt, mn. RPGyDy7A<Dm^<ofic 

<fcntf. RPG::^oii^9A©jQa<oi!5n*^-i-e«fffiT? 

[0 0 2 9] (24)RPC7'ny7Att«S 
02 6 t^t31 ?) s R P C 7*0 A{t«IS», -r-it 
'^-x. affi7r-<;K «a77"<';l'07^-/VF'\o 

amffi?8«01^L«:fc©T&5, R P G y-X3- F« 
»«i-r a c i: C d: o T?i S c *^T?* «.o 

[0 0 3 0] (25)^0^7 i:>/'77-l';VSIga (Iftg' 

40 •:rair'7j*/77-(imms. (.mm'U^ 027 

C^faD> 7'oi''9Afc7»~^f"^-X7r-<A'<D I / 
OBafi5«£P^L/ti'OX';7rUVXi|6aT$5. 7o 
y7At77l'/I/®§9®tta, DSPPGMREF (7 
n A#SgaTO 3->? y F^^frS-tttitfjEDS C tif 
■eSSO-e. Slf7«««:S«UTH2 70«a*f^JS^ 

[0 0 3 1] i26)-:fairyi-/yr^/mmm. mm' 
mL 

7Dif5A/7r-f;l'B8a« (®ffi-<lfia) it. 02 8 
JO Jc.T>-riiO, 7'Dif9Ai:il3D77'-</V, «a7rf;P 



©Baait^SJB^CTEn^ufcto-ps.s., dsppgm 

R E F (ynif9A#^3'0 =1-7 > K©llff«««:«B 
CO 0 3 2] (27)7y^;VgftT-7;V 

ti. R P G y-X3- KS:«1ff LT#«)Tl,^-5, 

[0 0 3 3] m))iyt-mEm-ii^ 

-X) 

±i$LfcCLyoi^5i>-MS(3) t^mi^m^&T* 

f Q 0 3 SI m)9^-^&yT^)V3t>A Kg 

SiC^fi!lO»lct^a*tlft*7"i^x*hO-!(l«'P 

CO 0 3 6] [JOB*gB0K:OV>T] 02-® 
3 2fcS-:5^. (1) V7h^Ji7mfmSh-^m-O0) 

^^•5-5> J 0 B«Jg|glO<lFfiK:^fiS{COl/>T. 03 

mWltCs I BMltORTVCLSRCzi'^VKSr^ffiL 

-K*«7Et« CSTl) o 03 614. RTVCLSR 

C DTy KfC J:oT«?c*tlfcC L y-X:/D4^9i>.«r 

nTi^^y-xn-K^&jgffl'rSJi^tcfi. xr»;/ys 
T 1 iDftag{cf^;iTs y-xyn^f^jUOSSSriSHfc 

[0 0 3 7] ClV-7.'fuifyLf)m7i^tlft^s ii 
«?S#S EQN0(^1i^S:+ l*r^fc«tc (ST2) ^ y 

mi-^ (ST 3) o.&fc. r#xxxj <o»a3b>63a^ 

rpGM. DCL. IF. ELSE. DO. ENDD 
0. CALLv ENDPGMJ r^OflkOCL^-^ 

P^ST3<0«eyi)b^»te^i:. 03 8J£:g^xt3V>' 
tC*rj5SUT. /2.Ba>'^'7/-i$^«:ttfflf ^ (ST4) o 
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3vyH4^-^7-H*7X^-MSC4. 1g$l*«5i^l$o 

fif^^tf. OVRDB F:3TyK(i:. 03 9<0J:^*tBJI 
S:®iS%^-:>Tl/^^3b^ 0VRD8F FILE( ) TOFILE( ) 
MBR( ) (OiJ-JZim^^y^-fiO^^mtii^t^ 
3vyK:^-7-KTX^-MSO r4^-7-Hffi 

fflj «fl:?)n 1 1 ooooooofc^i-pT^o. r+-7 
-FS»;ij - r+-7-K«»3j "^n^n 

70 F I LE. TOF I LE. MBRi:%oTl^§o 

^3C04^-7-FT-fe§F I L EfcTOF I L EfcMB 

[0 0 3 8] trc. 9mi. OVRPRTFnvyK 

tt. B4 0. 04 i(Dcfc^*aatft«j8«»oTi/-^ 

jbV OVRPRTF FILE( ) T0FIIE( ) PAG£SIZE( ) 
LPI{ )CPI( ) OVRFLW( ) SPOOK ) OUTQ( ) H 
OLD( )(Df3yaim/^^;^-ii<D^^tba^t^<s 3 
20 vy H-7X^-M S (O r+-7- KffifflJ ffl. 

*n 1 1 1 1 1 1 1 1 OtioT^feO. r+-7-K« 
- r+-7-H«»9j FILE. TO 

FILE. PAGESIZE. LPl. CPI, OVR 
FLW. SPOOL. OUTQ. HOLD ttiioX^i^ 
§0 mmc. 03 8(3!>3TyK+-7-F^Xi?-MS 

CKGVAR VAR( ) VALUE ( ) 
PGM PARM( } 
DCL VAR( ) 
SO CALL PGH( ) PARH( ) 
IF COND( ) THEN( ) 

+-7-F-TX^5'-MSfccfi. ±T<03VyFfc-t>V>T 

[0039] X^yyST3. ST 4(Dmm\CJ;:oX. 
CLavyFi:£^®&^^7><-^i:*^ttm^n«>i:. ::i 

>yFtSf^y»<0Ma*^i7bn (ST5) . CLy-x 
^«t77'Y;I/fo (04 7. 04 8) itc&m^^m^m 

40 tii^ti«i:«tu. ^*«77-r;l'F 1 (04 9) . & 
t;/<^;^-i'UXF7r-i';VF2 (05O)*M^^«ti 
S (ST5) o tLX. }ftttl3VyF3b^ENDPGM-^ 
jQrttntf. Xr-^ys T20[)SaajcS^*^ (ST6) > 
ttai3WF;b^ENDPGM"efetltf. #fi877'<;U- 
K« F 3 (05 1) *«SSLT» I WLm<09m^VkX^ 
(ST 7) 0 W±TX7-y:/ST l'-ST7(D«BSS«M 

^^7ift<r)Xs 03 60C Ly-x:f0y'7Afrc 

ML.T. Xf-y':/ST2-ST7 0«iai^S*. Mklfl 
50 [0 0 4 0] ifef. PG« PARM(&DMO mm &RC) (0 



13 

3 6) icrnhX. a^>)^?GMffiAlb1^n (ST 

3) . 3V>'K+"-'7-FvX^-MS*#S8-r§Ct 

&RC*<tttt!«n^ (ST4) o ^-LT. 

CLV-xfi?«r7r'Y;i/FO<o o^'^^-^'m/fj m<o 
a^P&l. 2, 6fc«l!iD*-a:43b^6. Taw HI 
DJ ffltC. S*t)«D>^^'7;>«-5r&DN0. &YYMM. 

, &RC«:!atlbT«)< (04 2 : ST5a) o ^ 

tc, ili^S^S EQN0«rl*^e»2fc:ii*D«'l^T (ST 

2) . OCL VAR(&DNO) TYPE(*CHAR) LEN(6)JCMLT. C /O 

LgSit"^?*^&DN0«raa5'rS (ST4)o CCV. 

jAtia^nrcc Lg!R*^pa« parmc&dno avYtttt &rc)cd 

CtJ:)PTtis &DNO. &TYPtt. tt?^fR«^n§c 
tJC&^tOT. a4 7<OCLy-XiS*T77-l';VF0(D 

rav:/Kl Dj s E QN0==2-'i 0(cm 

ficCNM. &CNM2. &DNM2s &SA 
I BAN. &RTN*^iB«*nT«)< (04 2: ST 5 20 
a) o 

[00 4 1)iK^^T> SEQNOJfel 0*>&I UJliilra 

Z^X (ST2) . CALL PG«(GETENV) PARM(&DNO 

■ ')tMUTx :/Dy^A I Dt?*^G ETENV 
i:/^'5;{-i'gf&DN0. &DLBs &RLB^ &PL 
B. &DNM2. " ^aW-rS (ST3. ST 

4) o <:0'5^> T'P^^^AIDti. CLV-X«?«t7 
r-Y/l/F OO rr3-7>'K I Dj «Bk:iB1i^ti (04 6: 

(H4 6 : ST5 62 ) o ^tc. S EQNO«rl 
1 2JC«A0^'^T (ST2) , OVRDBF FILE(YJWKJSP) T 

0FILE(QTEMP/YMiSP)J<:B8LTaa5^n/£;n^y KO V 
RDBF;b\ CL»«T7r'<;l'F0© rn'^yFl DJ 
«OK:ffi«*nS (04 5 : S T 5 di > o Xf-^ 
7'ST4 0iastc4oV>Tmi i:^2tO/^^^-:?;6^}Sffl 

sn^cDT?. CLy-xft?*777-Y;VF0o r*-7- 
mmj satcti i 27^^12®^^ (04 5 : s t 5 

d2 ) . tt/asnft/^^^-i'YJWKJ SPfcQTE 
MP/Y J WK J S Pt*V C Ly"-X«?«T7 7-^/1/ F ^0 

(B4 5 : sTSdj ) ^ 4^. siitmi^mit 

A^S^OS^nr. 04 70C L»?*t77'^;1/F0OS E 
QNO 1 3 - 1 smmif^^&S^^o 

[0 0 4 2] *<D». SEQNOftl 8*^&1 9K:«JiO 
^•^T (ST 2) . OVRPRTF FILE(QPRIMT) PAGESIZE(54 

198) LP! (6) CPKlS) 0VRFL«(54) OUTQCDUMBJCMU 
T. n^VKOVRPRTFfc. 
fc;b<aai^n (ST3, ST4) > tttti^rtlftOVRP 
RTF*^ CL»«f77^;l'F0iD ra-^VFI DJ «a SO 
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tcfatg^ns (04 5 : ST5 di ) o comt^^i. x 

•f*yyST40fil3ltC:feV^TSK ^3. Il4> »5> 
/BtfT77^;l/F0cD r+-7--F^fflJ «atct±l. 3. 

3, 4. 5. 6. 8*^feta$n (sT5d2 ) . cn^c 

^t)*T. CLy-X»tfT77>f;VF0<0 r/^9p<-i' 
IJ ffll-- r/^^pt-i5r7j SBtCtt. QPRINT, 5 

4. 198 *^ieit^n^ (ST5d3 ) o C 

t7)i?imi. *3/<^^"i'A^2o»§©-ecLy-x» 

«t77'</VF0O r+-7-HffifflJ fflfcl^is 3, 3t 

[0 0 4 3]:^Ji:. S EQN0«1 9*^6 2 otutBia;^ 
HtT (ST2) . IF CONO(&FLG *EQBr) THEN (00) K 

(ST3. ST4) o ^LT. nv^Kl Dt?fe§ I F 

tt, CLy-x))Wf77^;VF0«^ rn-T'yKiDj ffl 

tcieia^n (04 3 : S T S bi ) . C0MD(&FL6 
*EQ «r) tt. 04 9O^fe#3«7 7'<;PF UuIBIfi^ 
(ST5b2 ) o COW^**. Kl^T. THEN 
( ) c7);b^y3rtOl1i^A^aa^nT (ST 5 
bJ ) . »TfcfCXf'y7^ST2ttKco*[iSWTt>n^o 
■r*t)'6. SEQNO(i2 0A^&2 ncttAoSn (ST. 

2) . j^/i^n-ryKT^fe^DOJb'^ffltfi^n (ST 

3) . CLy-X»«T77'Y;l/FO<0 rnv^'KIDJ 
mK.DOt)^^mM (04 4 : ST5c) p «V^T. 
SEQN0«2 ljb^6 2 2lC|£t>t)> CALL P6M{YJ70P12 
0) PARM(&DN0aiDNtt2 &TYP &RC)tcBaLT. 
yiif^^O/^'^^-tJ^^^JfiiiiSnT (ST 3. ST4) . 

c Ly-xw?#r77-<;i/F0o rawK i dj micii 

'faifyL.lDV&^Y J 7 OP 1 2 O^^ffilS^ n (0 
4 6 : S T 5 ei ) . /^v^-^mi. 'fX2ifyL I D 
t *tJC0 5 0 tO^'^? ;<-^ y X h 7 7-f ;l/ F 2 tffiflK* 

(04 6 : ST 5 62 ) o 
[00 4 4] S EQN0t±2 2*^62 3tCSto 

0. IF COND(&RC «EQ BV) THEN (CALL PGM(PLT»RG) P 

ARM(BB4' ))\cmbX. a^y)^ti3y'3fyOA 

^)^-itttmti!iin^ (ST3» ST4) o ^tx. 
3-7 1 DTfe^ I Ftt. C Ly-X»«T77-<;VF 
0(D ra-eyF I Dj ffiSkiieia^ti (ST5 b2 ) v ^ 
COND(&RC *EQ mr)^ts 04 90*#5£77>r;l/ 
F l*ci3tg«n^ (ST5 b3 ) o *fc. THEN ( 
) ©:^':/3rtc?)ia?a"?*fe^CALL P6tt(PLTMRG) PARM(« 

B4' ) jb^iaai^ns (sts bs ) o ^to^. sa 

a(iXf'yyST2tCiB«7UT. S EQN0Jb^2 3;i)^e> 
2 4lCgt)oft». Ttj^^^nrttOnwF-e^^C A LL 
timtbtn (ST3) ^ CALL PGM(PLTMRG) PARM(«B4' 

) \cmLXtiy::iJ^<0J^'7:^-'i^tmihZn^ 

(S T 4) o ^UT. y-X»Mff77-<;VF OO riiT 
yFI DJ WICttT^D^^AI DTfe^PLTMRG*^ 

saltan (ST 5 61 ) . /^'yz-^'Sfi. /^•^pi-^' 



75 

l0 0 4 5}'AiC. SEQNO*^2 4*^6>2 5Ji:^t> 

0. CLV-"XjW*T77'-f;i/F0O rnvyHi DJ ffl 

44 : ST5c) o tSV^T. SEQNOfi2 53()>&2 6 

k:gt)0> CLy-x»«T7r-t';i/F0O r3TVKi 

DJ «atCt4:/Di^5ixI DT^^Y J 7 OP 1 2 17!)^IE 
S^n (ST5ei ) . /^y:^-'$im^t. ^^y^-^V 
Xh7r-Y;WF 2ICi2S^n?» (ST5 ez ) o *0 
ft. S EQNO{i2 6*^&2 7*i:a*>0s IF COI«)(&RC 
*EQ Ml') THEN (DOXcMLT;??^^ nrtO/^^^-tJ?*^ 
tttasn^ (ST4) o *UT. CLV-:^)Btt77^ 
;|/F0<0 rn-^yKIDJ «aK:tt3W K I DTfeS I 
Ftfi3ta:^n (S T 5 bi ) s SH*jSCOND{&RC ♦EQ ■ 

1') tt. ia4 9<D*fts:77'</i/F ittBia^ns (s 

T5b2 ) o tbX. THEN ( ) <^:^ynrtJCO 
^,^T^i. ffrctCXT^y7'ST2£0SaSW7t>n. SEQ 
NO*^2 7 3b^6>2 8tCiij!iQUT. rn^rvKlDj ffilfc 

(43TyKi D-c»feSDo*<ae«?n^ (st5c)o 

lOOASl^lC. SEQNOtt2 8*>e>2 9fcKto 
0, CALL PGM(PLTMRG) PARM(BB4' ) (uMUT;<?'y 

I D"efe^P LTMRG;b^i21t$n (ST5 ei ) . 

05OtD/<^^-^'yXh77^;l/F2 
tc|218*ns (ST5e2)o^O«. SEQN0A<2 

9;!^>e>3 0tCiEbt), CHGVAR VAR(&FLG) VALUE(BO')tC 
MUT:^y3rtO/^7;^-^'*^ttU*nT (ST4) . 

cLy"-x»«T7r^4/Foo r4^-7-K«fflj m\c 

li:2*^iatS^n (ST5d2 ) . r/^^;><-^lj CD 
Wt&FLG. rM7P«-5'2j 0«B^ '0' Jb^Eta* 
(ST5d3 ) o «V^T. SEQNO*^30A^63 

lK:gt>?) (ST2) . nvyKENDDOA^tttits^tx 
T (ST3) . CLy-Xfl?ffi7 7'd';bF0C0 favv 

KI DJ ftatClBlft^n^ (ST5c) o S/ts SEQN 
Otf^3 l/)^6 3 2tcSt>t) (ST2) s '5'^;V#END 
;b^lfiffi$tiTCLy-Xfi?^7r-r;VF0cD FzivyK 

IDJ ffiflklfSta^nS (ST5c) p Hfc. SEQNO 
3b<3 2*-&3 SfCStoom 3vyKENDPGM*^ 

ttaisnrcLy-x«#T77-<;i/F0(O rnvvKi 

DJ fflJclBltSnT (ST5 c) . X7^*y>^ST6$-e 
(OWm^tS^^o tt±©»afc:*fcoT. H3 60CLy 
--X^Di^^i^klML/T. 04 7 0CLy-XM«T77 
-f;l/FOfc. BI4 90ilMt*7r^;l/F l fc. BSO^O 
y<7^"^Uxh7r'Y;VF2i:*<%««n/tctt=6: 

So 

[0 0 4 7] ^ic. /^•7y-^'yxh7T>r;VF2(;o7 

D^5AI Di&^-tCtTs n-ryKDSPPOMRE 

F(0||lTSS«TfeSyny5A#B81ifB«r1ft^UT. S 
5 1 ©^8877'Y;W"-KaF SJ&^rtlS'ti^ (S T 
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7) o :fvifyL.pfmmi>t. ffiJAtfDSPPGMREF &LIB/* 
ALL OUTPUT (*OUTF I LE) OUTFILE(&BLIB/OCWPRFP) 

-rntfifisctA^T^^o Bi5 2tt. ai^77^;i/Dc 

WP R F POUn- F WT»> H«:0^LfcfecOt^fe 
t). 7^-;l/KWHPNAM. WHFUSG. WHOB 

zfaifvLy7^;l. ilS77^;K i|fiS77'< 
;K r"-i5'^-X7 7>r;U*<Me>*^i:4§o mtfs V 
Dif9A fYiTOPl 20J <0#S877-r;l/tt. PM 
/a RPPLP. YJWKJSP> YJMPRCP. QPR 

77-Y;l/^'<yfe. W?>A^i:4SOT. A:^77'Y;1/ 
(I) . m*l77>f;V (O) . S«fr77^;V (U) . « 

S77'<;i/ (P) > mmyr^^v (c) . ^ffl:^p^5 

L (E) ^DKglJ^i:•PU^Tt>. #Bg77-l';l/-K^F 3 
««5i$nSo 4*5. *rni^5A<D«»«*. y-X3 

[oo4 8])Ki^T. joBm&^(om^m:hyr^fv 

20 tlfcj OBffi5gBl«:EI.Txb/c:t>OTfe-5o nwF^-Y 
7*0 (PCM) . 3V>'F^?-ry2 (DCL) Jcov^T 
H3 8<Dnv>F^-7-F*TXt?-MS(0 T^T 
VF I DJ mt rnvvFrtgJ a)OlS?8*Bi^m:^7 
7-Y;VK:a:tiU 't<o:koimmc. @4 7©CLy- 
x)i?«T7 7'r;VF0(o r=3'TyFiDj fflc^)ts*aftai:^ 

t^o -75F^ 3'^yF^'>r:/3 (IF. ELSE) V 3 
-^yY^t^^A (DO, ENDDO)> nwF^-T:/ 
5 {#xxx) , u^>Y^^7^ (ENDPGM) (O 

ifr&tctt. ia4 7OCLy-x«tPr77'i';VF0O 
-T^F I DJ ffl(01S?a«::e(^s$m:^-rSo 4*5. 
yF^S?-ry^3 (I F, ELSE) <0«^*i:t4. Tl FJ 

KzsitfT. ia4 9<DSfeff3K77-r;i/F 1 o««*ffl:^-r 

So 

CO 0 4 9] nvyF^-^yeOii^Jctt, H3 8<On 
vyF+-7-F^X^-MS*«»bT. K^-r«C 
L3*7y FHrov^TOB^/^^-y^Klt-rs^^^K:. 

[34 7<DC Ly-X)i?tfT77-Y;UF OO r/1^;^-i^ 

i««:«ll8UTEP^ffi:^77^;bk:ai:^-rSo 03 son 
40 F4^-7-Fvx^-MStct4. r4^-7-F^''l' 

yj ffia^s ri/o*-<7'j «ai:?b^fcSA\ r+-7- 

tt, SCL3-TVHIC0W^TH^V>9S«*91^'r^# 

u. Ru. 10. X. Atc:^sysnT*o. ^n^n. 

.05 3fC^'rBI»^^^'-y/)WJtSLTl^So a3 8JCS^ 
"T^^JC. eij^ff, 3-=?yF0VRDBF (r-^?^-- 
50 X77^;l/-«faM) (iRU^-^^T^feD. nvvFO 
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V R p R T F (eamwiy r ■< x •< 

3WFCHGVAR (SaSS) tiA^f-f/T-fe 

I ±®4?>;'i'x»ceri^ 

R ■^m-.'i/^TX.m- 

N Bl)e^©fe«!l»c9l? 

mtfv n-T^HOVRDBF (f-^i'^-X77'1';P 
-BS^l) tt. ri|r-'7-Fi5?-1'7j O^ffl*^ TRUNJ 
fci&oTl-'SO-e, % 1 }ftm/<^;<-^', 0$ 0 F I L 
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